CAAInterpolate_Interpolate3 <-
function(n, Y1, Y2, Y3){
.Call("CAAInterpolate_Interpolate3", n, Y1, Y2, Y3)
}
